home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Intuition / Misc.asm < prev    next >
Assembly Source File  |  1991-03-13  |  2KB  |  102 lines
  1. *
  2. *    Misc.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    This file has the glue routines for the procedures and functions
  6. *    defined in Include/Intuition/Intuition.i that are not defined in
  7. *    any of the other .asm files.
  8. *
  9.  
  10.  
  11.     SECTION    PCQ_Runtime,CODE
  12.  
  13.     XREF    _p%IntuitionBase
  14.  
  15.     XDEF    _AllocRemember
  16.     XREF    _LVOAllocRemember
  17. _AllocRemember
  18.     move.l    4(sp),d1
  19.     movem.l    8(sp),d0/a0
  20.     move.l    _p%IntuitionBase,a6
  21.     jmp    _LVOAllocRemember(a6)
  22.  
  23.     XDEF    _CurrentTime
  24.     XREF    _LVOCurrentTime
  25. _CurrentTime
  26.     move.l    4(sp),a1
  27.     move.l    8(sp),a0
  28.     move.l    _p%IntuitionBase,a6
  29.     jmp    _LVOCurrentTime(a6)
  30.  
  31.     XDEF    _DoubleClick
  32.     XREF    _LVODoubleClick
  33. _DoubleClick
  34.     movem.l    d2/d3,-(sp)
  35.     move.l    12(sp),d3
  36.     move.l    16(sp),d2
  37.     move.l    20(sp),d1
  38.     move.l    24(sp),d0
  39.     move.l    _p%IntuitionBase,a6
  40.     jsr    _LVODoubleClick(a6)
  41.     movem.l    (sp)+,d2/d3
  42.     tst.l    d0
  43.     sne    d0
  44.     rts
  45.  
  46.     XDEF    _FreeRemember
  47.     XREF    _LVOFreeRemember
  48. _FreeRemember
  49.     move.w    4(sp),d0
  50.     and.l    #$FF,d0
  51.     move.l    6(sp),a0
  52.     move.l    _p%IntuitionBase,a6
  53.     jmp    _LVOFreeRemember(a6)
  54.  
  55.     XDEF    _GetDefPrefs
  56.     XREF    _LVOGetDefPrefs
  57. _GetDefPrefs
  58.     move.w    4(sp),d0
  59.     move.l    6(sp),a0
  60.     move.l    _p%IntuitionBase,a6
  61.     jmp    _LVOGetDefPrefs(a6)
  62.  
  63.     XDEF    _GetPrefs
  64.     XREF    _LVOGetPrefs
  65. _GetPrefs
  66.     move.w    4(sp),d0
  67.     move.l    6(sp),a0
  68.     move.l    _p%IntuitionBase,a6
  69.     jmp    _LVOGetPrefs(a6)
  70.  
  71.     XDEF    _LockIBase
  72.     XREF    _LVOLockIBase
  73. _LockIBase
  74.     move.l    4(sp),d0
  75.     move.l    _p%IntuitionBase,a6
  76.     jmp    _LVOLockIBase(a6)
  77.  
  78.     XDEF    _SetPrefs
  79.     XREF    _LVOSetPrefs
  80. _SetPrefs
  81.     move.w    4(sp),d1
  82.     and.l    #$FF,d1
  83.     move.l    6(sp),d0
  84.     move.l    10(sp),a0
  85.     move.l    _p%IntuitionBase,a6
  86.     jmp    _LVOSetPrefs(a6)
  87.  
  88.     XDEF    _UnlockIBase
  89.     XREF    _LVOUnlockIBase
  90. _UnlockIBase
  91.     move.l    4(sp),a0
  92.     move.l    _p%IntuitionBase,a6
  93.     jmp    _LVOUnlockIBase(a6)
  94.  
  95.     XDEF    _ViewAddress
  96.     XREF    _LVOViewAddress
  97. _ViewAddress
  98.     move.l    _p%IntuitionBase,a6
  99.     jmp    _LVOViewAddress(a6)
  100.  
  101.     END
  102.